Se tiene que tener muy claro la diferencia en este apartado.
Aquí se muestra los datos de precipitación extraidos de la
estación meteorológica automática que posee el MRSE de la EPS Ilo S.A.
Los datos son publicados luego de la descarga manual que se hace después
de cada visita a campo.
La siguiente tabla se obtuvo luego de desacargar datos de precipitación de la Estación meteorológica Asana. El formato de la fecha de cada dato de precipitación se muestra en Año-Mes-Día Hora:Minuto. Además la tabla se puede descargar en varios formatos (revisar los botones de la tabla 1).
---
title: "MRSE"
output:
flexdashboard::flex_dashboard:
logo: logo.png
favicon: imagen1.png
theme:
version: 4
bootswatch: cerulean
storyboard: true
social: menu
source: embed
orientation: columns
editor_options:
chunk_output_type: console
---
Principal {.storyboard data-icon="fa-chart-column"}
===
```{r setup, include=FALSE}
library(flexdashboard)
library(highcharter)
library(tidyverse)
library(xts)
library(DT)
```
### <b>Datos diarios de precipitación</b>
```{r}
df0 <- read.csv("mayo.csv")[1:6584,-1]
df <- read.csv("Estacion_julio_0.csv",
sep = ",")
names(df) <- c("fecha","Precipitacion")
df <- df %>%
mutate(fecha= as.POSIXct(
fecha,format="%m/%d/%Y %H:%M"))
df0 <- df0 %>%
mutate(fecha= as.POSIXct(
paste(fecha,hora,sep=" "),
format="%Y-%m-%d %H:%M")) %>%
select(fecha,Precipitacion)
# Data completa:
df <- rbind(df0,df)
# Data de tipo xts:
df2 <- xts(df,order.by = df$fecha)
# Datos diarios:
df3 <- df %>% mutate(
fecha = as.Date(
fecha,format="%Y-%m-%d")) %>%
reframe(Precipitacion=sum(Precipitacion,na.rm = T),.by = fecha)
highchart() %>%
hc_title(text = "Precipitación diaria en Asana") %>%
hc_xAxis(type = "datetime") %>%
hc_add_series(data = df3, type = "column",
hcaes(x=fecha,y=Precipitacion),
name="Precipitacion",color="darkblue") %>%
hc_exporting(
enabled = TRUE,
buttons = list(
contextButton = list(
menuItems = c("downloadPNG",
"downloadCSV",
"downloadPDF",
"downloadJPEG",
"downloadXLS")))) %>%
hc_xAxis(type = "datetime", showLastLabel = FALSE,
dateTimeLabelFormats = list(month = "%B")) %>%
hc_tooltip(shared = TRUE, useHTML = TRUE)
```
***
Se tiene que tener muy claro la diferencia en este apartado.
### <b>Visualización de datos crudos</b>
```{r inclu}
library(dygraphs)
library(xts)
dygraph(df,main = "Estacion Asana (Datos crudos)") %>%
dyRangeSelector(dateWindow = c(min(df$fecha),
max(df$fecha)))
```
***
<center>
***Datos crudos***
</center>
<br>
Aquí se muestra los datos de precipitación extraidos de la estación meteorológica automática que posee el MRSE de la EPS Ilo S.A. Los datos son publicados luego de la descarga manual que se hace después de cada visita a campo.
# Descargas {data-icon="fa-download"}
## row {data-width="150" style="color:cream"}
### <b>Descripción</b>
La siguiente tabla se obtuvo luego de desacargar datos de precipitación de la Estación meteorológica Asana. El formato de la fecha de cada dato de precipitación se muestra en Año-Mes-Día Hora:Minuto. Además la tabla se puede descargar en varios formatos (revisar los botones de la tabla 1).
## row {data-width="550" style="color:cream"}
### <b>Descarga de datos de precipitación</b>
```{r}
datos <- datatable(df2, extensions = 'Buttons',
filter = "top",
options = list(pageLength=5,
autowidth = TRUE,
dom = 'Bfrtip',buttons =
list('copy', list(
extend = 'collection',
buttons = c('csv', 'excel', 'pdf'),
text = 'Download'))),
caption = "Tabla 1: Datos de la estación pluviométrica")
datos
```